From: Daniel Colascione <dan.colascione@gmail.com>
Date: Wed, 27 Apr 2011 07:56:55 +0000 (-0700)
Subject: * subr.el (shell-quote-argument): Use alternate escaping strategy
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4018
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=640e5f8fa5550fe1c43d976f350254c038ef31f7;p=emacs.git

* subr.el (shell-quote-argument): Use alternate escaping strategy
when we spot a variable reference in a string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 08cb18b1157..d769e7ac62f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-04-27  Daniel Colascione  <dan.colascione@gmail.com>
+
+	* subr.el (shell-quote-argument): Use alternate escaping strategy
+	when we spot a variable reference in a string.
+
 2011-04-26  Daniel Colascione  <dan.colascione@gmail.com>
 
 	* cus-start.el (all): Define customization for debug-on-event.
diff --git a/lisp/subr.el b/lisp/subr.el
index 2b6a5404060..e374b56d2a8 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2543,7 +2543,7 @@ Note: :data and :device are currently not supported on Windows."
             "\\1\\1\\\\\""
             argument)))
 
-    (if (string-match "\"" argument)
+    (if (string-match "[%!\"]" argument)
         (concat
          "^\""
          (replace-regexp-in-string